home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / PickerIntf.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  894 b   |  43 lines  |  [TEXT/MPS ]
  1. {
  2.     File: PickerIntf.p
  3.  
  4.     As of MPW 3.0, interface files were reorganized to more closely
  5.     match "Inside Macintosh" reference books and be more consistant
  6.     from language to language.
  7.     
  8.     Interfaces for the Color Picker are now found in Picker.p.
  9.     This file, which includes Picker.p, is provided for compatibility
  10.     with old sources.
  11.  
  12.     Pascal Interface to the Macintosh Libraries
  13.     Copyright Apple Computer, Inc. 1988
  14.     All Rights Reserved
  15. }
  16.  
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.     UNIT PickerIntf;
  23.     INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED UsingPickerIntf}
  27. {$SETC UsingPickerIntf := 1}
  28.  
  29. {$I+}
  30. {$SETC PickerIntfIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32. {$IFC UNDEFINED UsingPicker}
  33. {$I $$Shell(PInterfaces)Picker.p}
  34. {$ENDC}
  35. {$SETC UsingIncludes := PickerIntfIncludes}
  36.  
  37. {$ENDC}    { UsingPickerIntf }
  38.  
  39. {$IFC NOT UsingIncludes}
  40.     END.
  41. {$ENDC}
  42.  
  43.